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pores eins beg oe Jape CREAR AESEHE UGE AUSc Tbe tes, 


ILE CBTaTLE "Delete one or more fil 


MODULE LIBSDELETE _F es' 
IDENT = 'I- ! File: LIBDELETE.B32 Edit: BLS0331 


oooo 
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BEGIN 


RESETS SST ETT TT TT TTT TTT TTT Trier irri irri iti rir iii iii i iiitiiiiiiiitiiiiitt | 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'@ 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE A 
'® ONLY IN ACCORDANCE WITH TH RM S$ 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 


E USED AND COPIED 
NSE AND WITH THE 
ARE OR ANY OTHER 
E AVAILABLE TO ANY 
OFTWARE IS HEREBY 


® 
® 
® 
* 
® 
® 
® 
* 
w 
® 
ie TRANSFERRED. ‘ 
® 
® 
* 
® 
® 
& 
® 
® 
® 
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1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: te CORPORATION. 
'e 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
\ i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
1 !e 
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050 | 1+ 
$3 H FACILITY: General Utility Library 
05 } ABSTRACT: 
O38 LIBSDELETE_FILE deletes one or more files. 
4 005 ENVIRONMENT: User mode - AST reentrant 
3 005 AUTHOR: Steven B. Lionel, CREATION DATE: 13-July-1982 
41 004 i MODIFIED BY: 
4 004 ! 
4 004 ! 1-001 = Original. SBL 13-July-1982 
re one : 1-002 - age rerated. [) lenspec argument, and pass FAB to confirm-routine. 
. * Cc = 
46 One ! 1-003 - Pass error source code to error-routine. SBL 19-Nov-1982 
47 04 : I~2Re - Update for new argument to LIBSFILE_SCAN. a} + aa 
48 004 ! 1-005 = Add new argument for filescan context. BLS 5-MAR-1984 
49 ! 1-006 - Parse null gtr ing to Sept locate rms context after calling 
0 32 file_scan. BLS 9-JUL-1984 
2 005 


IBSDELETE_FILE Delete one or more files 1B-5¢ Sep-1984 AX-11 Bliss-32 V P 
=006 eclarations sebz19ee fostesse | eetanT Oshes i PaoetE se 682.1 age 38 
; XSBTTL ‘Declarations’ 
5 1 ! PROLOGUE FILE: 
O87 4: 
0 REQUIRE ‘RTLIN:LIBPROLOG'; ! Switches, PSECTS, macros, etc. 
' 
i LINKAGES: 
NONE 


i TABLE OF CONTENTS: 


FORWARD ROUTINE 
sate ETE SF, ' Delete one or more files 
DELETE: NOVALUE, ' Delete a file 
DEC EiE ERROR: NOVACUE, ' Error routine 
DELETE_HANDLER; ! Condition handler 


OQOoOCCCooooooooooooooo Y 
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i MACROS: 


ce ee ec ce ee ee ee me ee ce ee ce ee ce ee ee cD ee ee ce cD ee ee ce ee ee ee ed ee ee ee ee eed ed 


oO OOO OOO 09 0009 09 09 09 09 09 09 09 SININI NINN NIN NOAA AAAAAAO 


01 
01 
gee 
0147 ; NONE 
0149 EQUATED SYMBOLS: 
O13] ; NONE 
0138 FIELDS: 
TESS oa 
0137 | OWN STORAGE: 
9139 ! NONE 
bie) i EXTERNALS: 
o1e8 1 
0164 1 EXTERNAL ROUTINE 
0165 LIB SANALYZE SDESC_R2: LIBSANALYZE_SDESC_R2$LINKAGE, 
b169 LIBSSCOPY_ DxDK, 
0168 LIBSSCOPY"R DX. 
169 LIBSSIG_ 10 _RET; 
1 171 EXTERNAL LITERAL 
1 17 LIB$_ERRR OUEAL, 
1 017 LIBS" INVFILSPE; 
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4-606 BSDELETE_FILE - Delete one or more files 1ergee= 138s 93:48:88 HATEAT Ob desc Fa et ete 7k of 33 

7 ZSBITL "LIBSDELETE_FILE = Delete one or more files’ 
7 GLOBAL ROUTINE LIGSDELETE FILE ( 
7 FILESPEC: REF BLOCK [, BYTE) ' File to delete 
7 DEFAULT _FILESPEC: REF BLOCK . BYTE, i Default file specification 
7 RELATED_FILESPEC: REF BLOCK C, BYTEJ, ' Related file specification 
7 SUCCESS_ROUTINE, ' Called on successful delete 

ERROR_ROUTINE, ' Called on error 

CONF IRM_ROUTINE, ! Called for confirmation 

USER_ARG ' User arguaent 

RESUCTANT_NAME: REF BLOCK C, BYTE), i Returned filespec 

PILE _SCAN CONTEXT ! LibSfile_scan context 

= 


144 


| FUNCTIONAL DESCRIPTION: 
LIBSDELETE_FILE deletes one or more files. It is similar in 
function to the DCL DELETE command. The specification 
of the file(s) to be deleted may include wild cards. 
CALLING SEQUENCE: 


ret_status.w 


lc.v 
FILESPEC 
DEFA 
RELA 
SUCC 
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NE.fzemlc.r 
TINE. fzemlc.r] 


2 
NAME .wt dx 
» CFILE_SCAN_CONTEXT) J3333])) 


i 
i 
i] 
i 
4 
i 
i 
i 
1 
i 
i 
i 
i 
i 
q 
i 
i 
1 
} FORMAL PARAMETERS: 
: FILESPEC - The file specification of the file(s) 
' 
i 
i 
i 
i 
1 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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to be deleted. Passed by descriptor. 
The specification may include wild cards. 


DEFAULT_FILESPEC - The default file specification of the 
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f 
I 

RELATED_F ILESPEC - yhe related file specification of the 
I 
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SUCCESS_ROUTINE - The entry mask of a routine to call for 
each successful delete, passed by reference. 
The calling format of the SUCCESS_ROUTINE is 
as follows: 
CALL SUCCESS_ROUTINE ( 
ilespec.rt.ds, 
user_arg.rz 
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LIBSDELETE_FILE Delete one or more files 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 Page 4 L! 
1-006 LIBSDELETE_FILE = Delete one or more files 1o-808- 1382 90:48:38 LIBRTL.SRC LiBeCEsE 68231 . (3) 1: 
> 163 ss filespec - The RMS resultant file specification 3 
> 164 § § 3 of the file being deleted. If : 
; 165 1! RESULTANT_NAME was specified, 3 
> 166 4 1! it is used to pass the string 3 
; 167 > 2 to SUCCESS_ROUTINE. Otherwise, 3 
; 198 § : } a class S, type T string is passed. : 
: 149 $535 1 i The value of d 
; user_ar - The value of user_arg passe 3 
: ive 0240 1! ’ to LIBSDELETE FILE ig posse 3 
; i 0241 1! to SUCCESS_ROOTINE using the : 
: 174 8 tg :t same mechanism as was used to 3 
: \?? 8 rh ! } pass it to LIBSDELETE_FILE ; 
3 177 0245 1! 3 
: 178 0 m4 1! ERROR_ROUTINE - The entry mask of a routine to call when F 
; 179 0247 1! an error is detected, passed by reference. F 
; 180 0248 1! The function value returned by the routine 3 
> «181 0249 1! determines whether or not more files will : 
: 186 os2o : be processed. : 
: 184 0252 1! The calling format of the ERROR_ROUTINE is : 
: «185 $528 1! as follows: = F 
> 186 0254 1! ret_status.wlc.v = ERROR_ROUTINE ( 3 
: 187 0622 7 7 filespec.rt.ds, 3 
; 188 0256 1! RMS_sts.rlc.r 3 
3; «6189 0257 1! RMS_stv.rilc.r, : 
: 190 0258 1! error_source.rl.r, 3 
: 132 0528 ' } user_arg.r2) : 
: 19 0261 1! filespec - The RMS resultant file specification ; 
3 6194 oseg 1? of the file being deleted. f 3 
; 195 0265 1! RESULTANT_NAME was specified, 3 
: 196 0264 1! it is used to pass the string ; 
3; 197 0265 1! to ERROR_ROUTINE. Otherwise, F 
: Hb b¢66 : a class $, type T string is passed. : 
; 200 0268 1! RMS_sts - The pr weory condition code 3 
; 201 0269 1! which describes the error 3 
: $06 ogee ! that occurred. : 
5 204 0272 1! RMS_stv - The secondary condition code ; 
: 205 bere 1! = which describes the error 3 
: $06 ogre ' } that occurred. : 
; 208 0 ug 1! error_source = An integer code that indicates ; 
; 209 0277 1! at what point the error was FY 
: 210 0278 1! found. The values are: 3 
s evi 3 79 1! 0 = Error searching for 3 
: \¢ 80 1! filespec F 
$ 1 0281 : : 1 = Error deleting file : 
; $18 6 HG 1: user_arg - The value of user_arg passed : 
: 216 8 Hf 1! to LIBSDELETE FILE is passed 3 
: 217 et to ERROR_ROUTINE using the 3 
: 218 0286 1! same mechanism as was used to 3 
3: 219 0287 1! pass it to LIBSDELETE_FILE 3 
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aa 
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ERROR_ROUTINE returns a success status 

en preceoenee of files will continue. if 
failure status is returned, then process tng 
LL cease immediately and LIBS$DELETE_FILE 

Ll return with the error status. 


hen ROUTINE is not specified, 

BSDELETE_FILE will return to its caller with 
the most +9 py of the error statuses encountered 
while deleting the files. Otherwise, if 
ERROR_ROUTINE is called for an error, the 

success status LIBS_ERRROUCAL is returned. 

Note that ERROR_ROUTINE is not called for 

errors related fo string copying. 


CONF IRM_ROUTINE - The entry mask of a routine to call before 
each file is deleted, passed by reference. 
The function value returned by the routine 
determines whether or not the file will be 
be deleted. 


n 
T 

1 

' 

' 

4 

4 

' 

' 

' 

' 

' 

' 

' 

i} 

' 

' 

t 

' 

' 

1 

' 

' 

' 

‘ The calling format of CONFIRM_ROUTINE is 
: as follows: 

: ret_status.wlc.v = CONFIRM_ROUTINE ( 
: filespec.rt.ds, 
: FAB.rr.r, 
user_arg.rz) 
' 

! 

! 

' 

' 

' 

' 

1 

' 

' 

' 

! 

' 

1 

! 

' 

' 

' 

' 

' 

' 

' 

i 

' 

i 

' 

' 

1 


filespec - The RMS resultant file specification 
of the file being deleted. If 
RESULTANT_NAME was speci ties. 
it is used to pass the string 
to CONFIRM_ROUTINE. Otherwise, 
a class S, type T string is passed. 


FAP - The address of the RMS FAB 
that describes the file 
being deleted. You may 
erform an RMS SOPEN on the 
AB to obtain file attributes 
you need to determine whether 
the file should be deleted, 
but you must close the file 
with S$CLOSE before returning 
to LIBSDELETE_FILE. 


user_arg - The value of user_arg passed 
to LIBSDELETE FILE is passed 
to CONFIRM_ROOTINE using the 
same mechanism as was used to 
pass it to LIBSDELETE_FILE 


If CONFIRM_ROUTINE returns success, the file 
is then deleted, otherwise that file is not 
eleted. 
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IBSDELETE_FILE Delete one or more files 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 

4-006 LIBSDELETE_FILE = Delete one or more files 12-88-1382 99°98:38 LIBRTL.SRC (ispeese 68231 —— (38 
: 277 os 9 USER_ARG - A value passed to SUCCESS_ROUTINE, ; 
; 278 6 1! ERROR ROUTINE and CONFIRM_ROUTINE each | : 
; e279 47 1 Fine they are called. Whatever mechanism ; 
; 280 ‘8 1 } s used to pass USER_ARG to LIBSDELETE_FILE is : 
: 281 0349 1 used to pass it to the action routine. This : 
: fi 8 29 1 is an opt tonal parameter, if omitted, zero : 
: Si p32 : } is passed by immediate value. | ‘ 
; 285 0 34 73 RESULTANT_NAME - A string into which is written the RMS resultant : 
> 286 0 rH 1! file specification of the last file processed . 
3; 287 0355 1 by LIBSOELETE FILE. Passed by descriptor. ; 
:; 288 8 28 1 If present, RESULTANT_NAME is used to store ; 
; 289 1! the filespec passed to the action routines : 
; ay 8 28 : } instead of a default class S, type T string. ; 
: 35 0860 1 FILE_SCAN_CONTEXT - The address of 3 longword, which is : 
: 29 0361 1! initialized to 0 before calling LIBSDELETE_FILE. ; 
> 294 0306 gg This context is used by LIBSFILE_SCAN to retain : 
; 295 0365 1! multiple input file related file context, an ; 
; 296 0364 1! need only be specified if dealing with multiple ; 
; 297 0365 1! input files, as the DCL DELETE command does. . 
> 298 0366 1! The context allocated by LIBSFILE_SCAN while : 
; 299 0367 1! rocessing the LIBSDELETE_FILE requests ma : 
; 300 0368 1! e deallocated by coiling LIBSFILE_SCAN_EN : 
; 0369 1! after all calls to LIBSDELETE_FILE have been 
: $08 Osoy } : completed. 
; 304 O37¢ i IMPLICIT INPUTS: | 
: 306 0374 1 NONE | 
s Sor 0375 1! 
: $00 O09 : IMPLICIT OUTPUTS: 
> 310 0378 1: NONE 
H 11 0379 1! 
: \¢ Bees ! COMPLETION STATUS: 
: 314 0382 1 i SS$_NORMAL Normal successful completion 
s 315 0383 1! LIBS_ERRROUCAL Success - error routine called. A file error was 
: 1 Bsee : encountered out ERROR_ROUTINE was called to handle 
: 318 0386 1 i LIBS_INVSTRDES Invalid string descriptor 
: 1S ow v0 LIBS_INVFILSPE Invalid file specification. FILESPEC or 
: 0 8 +4 ;! DEFAULT_FILESPEC is longer than 255 characters. 
3 1 1! LIB$_WRONUMARG Wrong number of arguments. 
3 ¢ 8 90 1! LIBS$_xxx Any error status from LIBSSCOPY_xxx 
; ie 391 1! RMS$_ xxx Any error status from RMS. If ERROR_ROUTINE is not 
3 4 3 1! specified, this is the most severe of the RMS errors 
: 5 iy, ! encountered while deleting the file(s). 
3 ; 95 ; SIDE EFFECTS: | 
3 $5 $7 ; The files specified are deleted. 
; 31 339 ine 
; 33 ot 2 BEGIN 
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Phen betote one or more files 12-808: 138 99: 48: $ AYARTL SRESL TSDELETE 68231 


LOCAL 
FAB: SFAB_DECL, 1 File’s FAB 
NAM: $NAM_DECL ' File's NAM 
RLF _NAM: SN ECL, ' Related file NAM block 
ESN: VECTOR PRANSb MAXRSS . Byte}. ! Expanded name string 
RSN: VECTOR CNAMSC_MAXRSS, BYTE, ! Resultant name string 
ERROR_SOURCE, ! Reason for the error, passed 
! to error_routine. Values are: 
: - error from search 
; 1- —_, from SERASE 
WORST_ERROR, '! Worst error so far 
INTERTEPT_ FLAG: VOLATILE, 1 if signals” are to be intercepted 
RET_STATUS; ! Return status 
LTIN 
ACTUAL COUNT 
NULLPARAMETER; 
'¢ 
i Enable DELETE_HANDLER as a handler so phase it will convert our 
: ; Signals to return statuses if INTE ERC CEPT_FLAG is set. 
ENABL 


E 
DELETE_HANDLER (INTERCEPT_FLAG); 
+ 
} Validate the argument count. 


SLIBSVALIDATE_ARGCOUNT (1,9); 
' 


'¢ 
Initialize the FAB and NAM blocks. 


SFAB_INIT (FAB=FAB, NAM=NA\ 

SNAM~ IN IT (NAM=NAM, MActeN. * ESS=NAMSC _MAXRSS, 
SA=RSN, RSS=NAMSC_MAXRSS, RLF=RLF_NAM); 

SNAM_INIT (NAM=RLF_NAMY; 


! Initialize WORST_ERROR to zero. If an arrers meee the worst one 

' will be in WORST_ERROR when LIBSFILE SCAN ¢ 

' Initialize ERROR SOURCE to zero. If DO “DELETE "eelte DELETE_ERROR 
it will set ERROR_SOURCE to 1. 


WORST_ERROR = 0; 
ERROR-SOURCE = 0; 


i "set up FAB for the file specification. Return LIBS_INVF “LSPE 
i _if the string is longer than 255 characters. 
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IBSDELETE_FILE Delete one or more files 16-56 -1984 00:48: AX-11 Bliss-32 V4.0-74 Page 8 
T=O06 =” DTBSDELETE FILE o Delete one or more files Ve-gep-1obe 95:48:38 HeTanre SReSctaoecese o82:1 9° (3) 1: 
3; Ji 45 : 
3 38 rh BEGIN ; 
; 4 : 
; 394 106 LOCAL : 
: 95 46 FILESPEC_LENGTH: WORD, ' Length of FILESPEC seeing ‘ 
; ; tee STATUS; ! Status from LIBSANALYZE_SDESC. : 
; 398 rt STATUS = LJOSAMAL YZE_SDESE R2 PELE SPEC C0,0,0,0); ‘ 
; 399 46 FILESPEC_LENGTH, FAB CFABSL_FNAJ); : 
; 400 ret ° 
: 401 rf IF NOT .STATUS ‘ 
3 208 4 9 N : 
: 403 a? RETURN .STATUS; : 
; 405 238 IF .FILESPEC_LENGTH GTRU 255 : 
; 406 0474 : 
: pet oor? RETURN LIBS_INVFILSPE; ; 
; 409 b255 FAB CFABSB_FNS] = .FILESPEC_LENGTH; $ 
; 410 0478 END; > 
: 411 0479 ; 
5 tig 0480 '+ ; 
3 rtf ot Get DEFAULT_FILESPEC if present, and set up as default name string. : 
3; 415 Os F 
; 416 484 IF NOT NULLPARAMETER (2) ; 
; 417 0485 H : 
: 418 86 BEGIN : 
: 419 487 : 
3 $30 0488 OCAL F 
; $21 0489 FILESPEC_LENGTH: WORD, } Ce of DEFAULT FILESPEC string é 
: re Beas STATUS; ! Status from LIBSANALYZE_SDESC. : 
; 424 B28 STATUS = LIBSANALYZE_SDESC_R2 a | Helena C0,0,0,0); : 
; ret Rea? FILESPEC_LENGTH, FAB CFABSL_DNA)); : 
3; 427 0495 IF NOT .STATUS : 
: 428 p38 : 
i 499 497 RETURN .STATUS; : 
F} $3) ve IF .FILESPEC_LENGTH GTRU 255 : 
3; 4 g 0500 8 
3 7. 030 RETURN LIBS_INVFILSPE; : 
3 t3¢ 268 FAB CFABSB_DNS) = .FILESPEC_LENGTH; : 
; 4 5 END; ‘ 
if Be. | i 
; rs a4 : Get RELATED_FILESPEC if present, and set up as related name string. : 
> 441 509 ; 
3; 44 510 IF NOT NULLPARAMETER (3) | : 
3; 44 511 AND NULLPARAMETER (9) : 
: 466 216 THEN 3 
3: 6445 51 BEGIN : 
; 44 514 : 
: 46 515 LOCAL : 
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IBSDELETE_FILE Delete one or more files 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 Page 9 ] 
1-006 ms LIBSDELETE_FILE = Delete one or more files 12286871382 3:48:33 LYARTL SRESLTODELETE.682;1 : (3) '. 
> 448 1 FILESPEC_LENGTH: WORD, ! Length of RELATED_FILESPEC strin ; 
H rc i STATUS; : Status from LIBSARALY IE. SDESC. . : 
; res i§ STATUS = LIBSANALYZE_SDESC_R2 (RELATED FILESPEC (C0,0,0,0]; : 
3 : ¢ y FILESPEC_LENGTH, RLF_NAM CNAMS$L_RSAJ); : 
: 43 ‘ IF NOT .STATUS 3 
; 496 og RETURN .STATUS; ; 
; 438 08 6 IF .FILESPEC_LENGTH GTRU 255 
; 460 03 § RETURN LIBS_INVFILSPE; 
; 466 0530 RLF_NAM CNAMSB_RSL] = .FILESPEC_LENGTH; 
; 46 531 END; 
. on ee 
> 466 0534 i Call LIBSFILE_SCAN, which will call DO_DELETE for each file that is 
3; 467 0535 ! to be deleted. Pass as extra parameters the success routine, error routine, 
; 468 B298 ! confirm routine, user argument, result filename descriptor, worst error 
; 469 053 ! holder, error_source and intercept flag. These will be passed to DO_DELETE by 
; 470 b238 ' LIBSFILE_SCAN. ’ 
: th $320 e 
> 47 0541 LIBSFILE_SCAN ( 
: 474 B26 ! Input FAB 
; 475 054 DO _ DELETE ' Success routine 
: 476 0544 DECETE ERROR i Error routine 
3; 477 0545 (IF ACTUALCOUNT () GEQU 9 THEN .FILE_SCAN_CONTEXT ELSE 0),! context 
3; «478 9248 (IF ACTUALCOUNT () GEQU 4 THEN .SUCCESS ROUTINE ELSE 0),! Success routine 
3; 479 054 (IF ACTUALCOUNT () GEQU 5 THEN .ERROR_ROUTINE ELSE 0) ! Error routine 
; 480 0548 (IF ACTUALCOUNT () GEQU § THEN .CONFIRM_ROUTINE ELSE 6), Confirm routine 
; 481 0549 (IF ACTUALCOUNT () GEQU 7 THEN .USER_ARG ELSE 0), ' User argument 
; 48 0550 (IF ACTUALCOUNT () GEQU 8 THEN .RESUCTANT_NAME ELSE 0), ! Resultant name 
>; 48 0551 WORST_ERROR ! Worst error so far 
; 484 0336 ERROR_SOURC ! Code for source of error 
s tH 0354 INTERTEPT_FLAG); ! Signal intercept flag 
: 487 555 1+ 
; 488 B22$ ! Parse the null string to deallocate any internal 
; 489 55 ! RMS context. 
Pm a a to 
: 49 326 NAMCNAMSV_SVCTX] = 0; 
: 49 561 NAMENAMSV~SYNCHK) = 1; 
3 494 266 NAMLNAMSB_ESLJ = 0; 
; 495 56 NAMCNAMSB-RSLJ = 0; 
3 rh) 564 NAMLNAMSB_ESS) = 0; 
; 49 565 NAMLNAMSB_RSS) = 0; 
; 4498 268 NAMLNAMSL_RLF) = 0; 
3; 499 56 FABLFABSB_FNS) = 0; 
: 500 208 FABLFABSB_DNSJ = 0; 
; 501 28 SPARSE (F AB=F AB); 
: $8 ant '¢ 
; 504 572 ! Return WORST_ERROR or SS$_NORMAL, as appropriate. 
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LIBSDELETE_FILE = Delete one or more files 
fe m 
7 IF .WORST_ERROR NEQ 0 
16 THEN 
f RET_STATUS = .WORST_ERROR 
23 RET_STATUS = SS$_NORMAL; 
a RETURN .RET_STATUS; 
5 5 END; 
007C¢ 
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a Saas SRMS PTR 
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IBSDELETE_FILE Delete one or more files 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 
petit LIBSDELETE_FILE = Delete one or more files 1 ~3007 138% 90:48:38 UTRTL SREILESDELESE 69251 —_ (3) 
0 1A 8 BGTRU 6$ ; 
£4 ap 1 30 A MOVB FILESPEC LENGTH, FAB+52 + 0477 
0 C CMPB ss (AP), & + 0484 
D 1F OOOA BLSSU-2$ : 
08 A p A TSTL (AP) : 
1 A BEQL x : 
50 08 AC D A MOVL § DEFAULT_FILESPEC R09 + 0492 
1 AC JSB LIBSANALYZE_SDESC_R : 
EO AD D A MOVL  R2, FAB+4 + 0493 
A © B BLBC STATUS, 4$ + 0495 
OOFF  8F 1 61 000B CMPW = FILESPEC_LENGTH, #255 > 0499 
ef 1A QOOBA BGTRU 6$ : 
eS A 90 0008 MOVB FILESPEC LENGTH, FAB+53 + 0503 
0 66 91 000C0 28: CMPB ss CAP), @ + 0510 
1F 000¢ BLSSU -8$ : 
0c AC D5 00¢ TSTL  12¢AP) : 
2D 13 000C8 BEQL «és: : 
09 6C 91 OOOCA CMPB Ss (AP), #9 + 0511 
05 iF 000CD BLSSU 3 : 
24 AC D5 OOOCF TSTL 6 (AP) : 
2 if 00D2 BNEQ 8$ ; 
50 0c AC DO 000D4 38: MOVL §§ RELATED_FILESPEC, RO + 0519 
$6 16 00008 JSB LIBSANALYZE SDESC_R2 : 
FEF4 CD 52 DO OOODA MOVL R2, RLF_NAMT4 : 0520 
01 50 cs OO0DF 4$: BLBS STATUS, ~5$ : 0522 
OOFF  8F 51 81 Goges 5$: CMPW FILESPEC_LENGTH, #255 + 0526 
08 1B 000E8 BLEQU 7$ : 
50 000000006 8F bo OOOEA 6$: MOVL #LIBS_INVFILSPE, RO : 0528 
FEF3 CD 51 8 000K 2 7$: MOVB = FILESPEC_LENGTH, RLF_NAM+3 : 0530 
08 AE 99F OOOF? 8$: PUSHAB INTERCEPT FLAG : 0541 
04 AE 9F OOOFA PUSHAB ERROR_SOURCE : 
OC AE 9F O00FD PUSHAB WORST-ERROR F 
08 6C 91 00109 CMPB ss (AP) , “#8 : 0550 
05 1F 0010 BLSSU -9$ ; 
20 AC DD 00105 PUSHL RESULTANT NAME : 
02 11 00108 BRB 10$ : 
7E D4 OO10A 9S: CLRL = = (SP) : 
07 6¢ 91 0010C 10$ CMPB ss AP), @ + 0549 
05 iF O10F BLSSU_11$ : 
1¢ AC DD 00111 PUSHL USER_ARG ; 
2 11 00114 BRB 128 : 
E ps 116 11$:  CLRL -(SP) F 
06 6¢ 100118 128: CMPB (AP), #6 > 0548 
0S iF 00118 BLSSU _13$ : 
18 AC DD 0011 PUSHL  CONFIRM_ROUTINE : 
ge 11 001 RB 14$ : 
E ps 102 13$: CLRL -(SP) ; 
05 6¢ 100124 148:  CMPB (AP), #5 : 0547 
1F 00127 BLSSU-15$ : 
16 AC pp 109 PUSHL ERROR_ROUT INE : 
02 11 0012C BRB 6$ : 
E ps 106 15$: CLRL -(SP) : 
04 6¢ 100130 16$:  CMPB (AP), #4 > 0546 
1F 001 BLSSU -'17$ : 
10 AC DD 001 PUSHL  SUCCESS_ROUTINE : 
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IBSDELETE_FILE De ne or more files 1a-Se -1984 00:48: AX-11 Bliss-32 V4.0-74 
tit 3 dO E = Delete a file 12-808- 1382 90:48:38 CTBRTL SREILIBDEL ESE. 6921 
cc oer 1 ZSBITL "DO_DELETE = Delete a file’ 
3 i 5 1 ROUTINE DO pee ( 
3 1 § 1 FAB: REF FAB_DECL, ' Next input file FAB 
3 0 5 1 UNUSED_1, ! Unused here 
: 1 : 1 UNUSED ¢- ! Unused here 
3 ¢ 1 UNUSED ' Unused here 
; » § SUCCESS ROUTINE, i Success routine address 
3 4 23) 1 UNUSED _& ' Unused here 
: 525 % 1 CONF IRM_ROUTINE, i Confirm routine address 
3 8 593 1 AR ! User argument 
; 594 1 RESUCTANT _NAME, i Resultant filename 
; 8 8232 4 UNUSED _5, ' Unused here 
: 36 1 ERROR_SOURCE: REF VECTOR C, LONG] ' Source of error 
; 3 0597 1 INTERCEPT FLAG: REF VECTOR C, LONG) i Intercept flag 
: 1 9398 ! ): NOVALUE = 
; ; : $200 1 144 
3 re beps : FUNCTIONAL DESCRIPTION: 
; 536 0603 1! This routine is called once for each file that LIBSFILE_SCAN 
; rH pene : finds. It deletes the file described by FAB. 
: 339 0606 i CALLING SEQUENCE: 
: 541 0608 1 } DO_DELETE is called with the same arguments as was LIBSFILE_SCAN 
3 oe8 $4 : in LIBSDELETE_FILE. 
: 344 0611 FORMAL PARAMETERS: 
: 248 0618 : See LIBSDELETE_FILE for a description of all parameters. 
: 548 0615 1 ! IMPLICIT INPUTS: 
3; 549 0616 1! 
a be18 1 | —_ 
: 338 0619 ! IMPLICIT OUTPUTS: 
aes gos) | ee 
; 226 06 $ i COMPLETION STATUS: 
: 338 06 g ; NONE 
; S 3 , i SIDE EFFECTS: 
; : 4 : Deletes a file. 
: 364 1 ine 
; 364 j BEGIN 
: 368 6 LOCAL 
3 69 NAM: REF SNAM te ' NAM of hae 
: 570 LOCAL _DSC: BLOCK C8, BYTE), ; Locet string descriptor 
: 571 3 STRING_PTR ' Pointer to string used 
; 2 6 } COPY_STATUS; i Status from LIBSSCOPY 
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eP-Setete o file 1 380-198¢ 93:98:38 EMarte sneSiteoecese-042;1 
BUILTIN 
CALLG; 


14 
Set NAM address. 


NAM = .FAB CFABSL_NAM); 


1+ 

! Copy the resultant file name to the user's string, if specified. 
! If we get an error from the copy, signal it. 

! If no user string, use our own. 


T 


R = .RESULTANT_NAME; 
RING_PTR 


NEQA 0 


~pTATUS = LIBSSCOPY_R_DX_ (ZREF(.NAM CNAMSB_RSLJ), 
«NAM CNAMSL_RSAJ, .RESULTANT_NAME) ; 
OT .COPY_STATUS 


GIN 
NTERCEPT_FLAG [0] = 1; 
IGNAL _STOP (,COPY_STATUS); 


! Use our string 
DSCSK_DTYPE_T; 
Me ethant $3 
]_= .NAM~CNAMSB_RSLJ; 
R] = .NAM CNAMSC_RSA); 
'¢ 
! If there is a CONFIRM_ROUTINE, ask it if it wants the file deleted. 
Note use of Linkage name BLISS to perform a general-routine-call. 
if - CONF IRM_ROUTINE NEQA 0 
IF NOT BLISS (.CONFIRM_ROUTINE, .STRING_PTR, .FAB, .USER_ARG) 
RETURN; 
'¢ 
Do the SERASE. 
IF NOT SERASE (FAB = FAB (0,0,0,0)) 
THEN 


BEGIN 


=r 


Be Se Oe Be Be Se Se Se Se Se Se Se Se Se Ge Se Ge Fe Ge Ge Ge Se Ge He Ge Se Ge Se Ge ee Se Ge Fe Se Fe Fe Se Se Se ee Se Se Se Se Sees Se Se Se Seas Se Se Se se teas 
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“call the DELETE_ER 
' called with. If w 
' Set ERROR. SOURCE t 
ERA 
1; 
JE 
2 
1 


Lips DELETE _FILE 


wr 


ut es Agee ola same arguments we were 
s error routine, ny. 

thet * DELETE ERROR will know the error 

z came from the SER 


ERROR_SOURCE (0) 
CA LLG . AP, DELET 
RETURN 
END 
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1+ 
If there is a success routine, call it. 
ieee NEQA 0 
BLISS (.SUCCESS_ROUTINE, .STRING_PTR, .USER_ARG); 
RETURN; 
END; ! End of routine DO_DELETE 


wi 
SOCGCCCOCOCOCOOOCOCOOCOOCOCOCOCSoSS Fg 


Vi & & 


-EXTRN SYSSERASE 
001C 00000 DO_DELETE: 


WORD Save R2,R3,R4 3 

5E 0c ¢2 00002 SUBL2 #12, SP : 

5 04 AC DO 00005 MOVL FAB, R3 ; 

52 28 AS DO 00009 MOVL  40(R3), ; 

54 24 «AC 00 00000 MOVL § RESULTANT_NAME, STRING_PTR : 

26 1 90011 BEQL =«*1$ ; 

24 AC 0D 00013 PUSHL RESULTANT_NAME : 

4 A2 dD 90016 PUSHL 4 (NAM) : 

08 AE 03 A2 9A 00019 MOVZBL 3(NAM), 8(SP) F 

08 AE OF OO01E USHAB &(SP) ; 

000000006 00 9 Fe 0021 CALLS #3, LIBSSCOPY_R_DX : 
22 0 €8 00028 LBS COPY_STATUS : 

30 «BC g1 D0 99 B OVL #1, SINTERCEPT_FLAG ; 

0 DD 000eF PUSHL  COPY_STATUS F 

000000006 00 01 FB 031 CALLS #1, CiB$sToP ; 
54 04 AE aE 8 1$: MOVAB LOCAL DSC. STRING_PTR F 

06 AE 01 ’ 8F a 0 MOVW #270, LOCAL_DSC+2 F 

04 AE Ag 004 MOVZBW 3(NAM), LOCAL_DSC ; 

08 AE 4 Ad 00 0004 OVL 4(NAM), LOCAL~DSC+4 : 

C AC OD 4D 2$: TSTL CONF IRA ROUTINE ; 

OE 1 BEQL $ 3 

20 AC od PUSHL speed : 

3 DD PUSHL R : 

4 oD PUSHL STRING ; 

1c «BC FB 9 CALLS #83, SCONE IRM. ROUT INE : 

4 E BLBC 3=E._—«RO.-“ S$ : 

DD 3$: PUSHL R : 

000000006 00 1 FB 0006 CALLS #1, SYSSERASE : 
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LIBSDELETE_FILE Betete one or more files 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Page 16 
1-006 ELETE = Delete a file 14- gop 18s $3; 38:38 CO TeRTLS SRCILIBDELETE. 5 2;1 . (4) i 
0 30 Es 069 BLBS RO, 4$ : 
cs = 1 D0 000 MOVL @ERROR_SOURCE + 0704 
0000v CF 6C FA f CALLG tab) DELETE_ERROR : 708 
14 aC D3 46 4$: TSTL SUCCESS _ROUTINE : 0713 
0 7 BEQL : 
20 AC dD 9078 PUSHL USER afFS. + 0715 
54 DD 3 PUSHL STRIN : 
14 BC 02 FB 90080 CALLS #2, aSOCCESS ROUTINE : 
04 00084 5$: RET : 0719 


; Routine Size: 133 bytes, Routine Base: _LIBSCODE + 01A7 
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IBSDELETE_FILE 
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N 15 
te one or more files 19-300713 4 00:48:36 AX-11 BLi 
TELERROR = Report error during delete 14-Sep-1984 12:38: LIBRTL 


ne 
RR 

ZSBITL "DELETE_ERROR = Report error during delete’ 
ROUTIN ERROR ( 


E a 

FAB: REF S$FAB_DECL, ! Next input file FAB 
UNUSED_1, ! Unused here 
UNUSED .¢- ' Unused here 
UNUSED_5, ' Unused here 
UNUSED 4, ' Unused here 
ERROR_ROUTINE, ' User's error routine 
UNUSED_5, ' Unused here 
USER_A ! User's argument 
RESUCTANT NAME i Resultant file name 
WORST_ERROR: REF BLOCK C, BYTE) ! Worst previous error 
ERROR-SOURCE: REF VECTOR C, LONG) ! Code for source of error 
INTERCEPT FLAG: REF VECTOR C, LONG] ! Signal intercept flag 

3 = 


++ 

FUNCTIONAL DESCRIPTION: 
This routine is called when LIBSFILE_SCAN detects an error. 
It calls the user's error routine, if one exists. 
If the user's error routine returns success, or if there is 
no user error routine, processing of remaining files continues. 
If the user's error routine returns failure, the error is 
signalled. This signal is converted to the return status of 
LIGSDELETE_FILE. 

CALLING SEQUENCE: 


Called from LIBSFILE 
as passed to LIBSFIL 


FORMAL PARAMETERS: 
See body of LIBSDELETE_FILE for descriptions of arguments. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
Signals .FAB CFABS$L_STS) 


AN and DO_DELETE 
C L 


Sc E with the same arguments 
E_SCAN from CIBSDELETE_FILE. 


SDAA AAS AE AA ASS ES BS BS ES ES BS BS EE AANA AINA AIOOPIPOPONININININD oo 
UN=Soa NOUR 2 O ODNOUE WN OG OONAU EWN O ODNOUSWR HOODNOULSWN—O Mme 


BEGIN 
LOCAL 


ANN 
SANNN 
une 
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IBSDELETE_FILE Delete one or more files 1b-5¢ -1984 00:48: AX-11 Bliss-32 V4.0-74 
1-006 DELETE_FRROR = Report error during delete 1 ~3007 138% 90:98:38 YTBRTLS RET TMDELESE B42: 1 
s 711 77 NAM: REF SNAM pec ' NAM block 
: ar 77 LOCAL_DSC: BLOCK (8, BYTE), i Our filename descriptor 
: 71 77 RING_PTR ! Pointer to user's string or our own 
; is 9780 COPY_STATUS; i Status from LIBSSCOPY 
: 716 7 1+ 
s 717 788 ! Build our local descriptor to contain the filespec . the file in error. 
; 718 784 ! Note that the filespec is guaranteed to be in the kh W because 
3 ahs 78 } LIBSFILE_SCAN puts it there before calling us. 
: ; : 6 ; NAM = .FAB CFABSL_NAM] 
.F 5 at LOCAL_DSC Dscea_bTyes = DSCS$K_DTYPE_T; 
: 726 0790 LOCAL_DSC [LDSC$B_CLASSJ = ae tuant S; 
: 725 0791 LOCAL-DSC CDOSCSWILENGTH] = .NAM”CNAMSB_RSLI; 
> 726 079¢ LOCAL-DSC CDSC$A-POINTER] = .NAM CNAMSC_RSAJ; 
3: 727 079 
: 728 0794 $ '¢ 
3; 729 0795 ! If the user has specified DELETED_FILE, copy the filename to it. 
:; 730 0796 2 le 
s 731 0797 
3; 732 0798 STRING_PTR = .RESULTANT_NAME; 
3 fas 0799 IF .STRING_PTR NEQA 0 
3: 734 0800 THEN 
s 735 0801 BEGIN 
; 736 080 COPY STATUS = LIBSSCOPY_DXDX (LOCAL_DSC, .RESULTANT_NAME) ; 
: 737 080 IF NOT .COPY_STATUS 
; 738 0804 THEN 
3; 739 0805 4 BEGIN é 
: 740 0806 4 INTERLEPT_FLAG (0) = 1; ! Cause handler to intercept signal 
> 741 0807 4 SIGNAL_STOP (.COPY_STATUS); 
3 eG 0808 4 RETURN; 
; 74 0809 3 ND; 
> 744 0810 3 END 
> 745 0811 : ELSE 
3; 746 bas STRING_PTR = LOCAL_DSC; ! Use our own string 
: 747 0813 2 
3; 748 0814 '+ 
3: 749 0815 ! If a user error routine has been specified, call it with arguments 
s 730 0816 ! of the filename, STS, STV, error source and user argument. If it returns 
s 751 0817 ' failure ye the error. Since the user's routine was called, 
: 752 0818 i store LIBS_ERRROUCAL in WORST_ERROR. 
s 755 0819 !- 
3: 754 bB5¢ 
; 755 0821 IF .ERROR_ROUTINE NEQA 0 
; 756 08 ¢ THEN 
: 757 08 BEGIN 
; 758 0824 IF NOT widt (.ERROR_ROUTINE, .STRING_PTR, 
; 759 0825 FAB CFABSL_STSJ,~FAB CFABSL_STVJ, ERROR_SOURCE [0], .USER_ARG) 
: 760 08 $ THEN 
: 761 08 4 BEGIN 
; 166 828 4 INTERCEPT FLAG (0) = 1; ! Cause handler to intercept signal 

: 76 8 9 4 SIGNAL_STOP (.FAB CFABSL_STS}); 
: 764 0 4 RETURN; 
: 765 te END; 
: 766 é WORST_ERROR [0,0,32,0] = LIBS_ERRROUCAL; ! Error routine called 
: 767 083 END 
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-006 DELETE_ERROR = Report error during delete 14- ~tep- 1386 99: $f: 3 LIBRTL.SR RCL 1BDeLE TE 692:1 ° (5) 
; 768 834 ELSE 
; 4 5 BEGIN 
s 71 3 ' If this error is Bat than ary previous errors, store it in 
3 ie 0 3 ! WORST_ERROR. EQU so that the initial zero gets replaced if 
3; “a 8 } _the error is a -% ng.) 
3 776 re 
3 OB IF .BLOCK CFAB CFABSL_STS], STSS$V_SEVERITY;4, BYTE] GEQU 
; oh THE -WORST_ERROR CSTSS$V SEVERITY) 
3 8 45 WORST_ERROR (0,0,32,0] = .FAB CFABSL_STS); 
3 rk END; 
3 oR 
3 rk} ‘tenet ERROR_SOURCE to zero so that future $SEARCH errors will be 
3 0850 i properly indicated. 
: 0851 in 
3 Bees 
: 085 ERROR_SOURCE [0] = 0; 
3 0854 
: 0855 RETURN; 
3 0856 
: 0857 1 END; ! End of routine DELETE_ERROR 
000C 00000 DELETE_ERROR: 
-WORD Save R2,R3 3; 0721 
SE 08 C2 0000 SUBL2 #8, SP 3 
5 04 AC 00 0000 MOVL ; 0788 
5 38 A2 DO 00009 MOVL  40(R2), ; | 
02. AE 01 8F +4 Boos MOVW #27 0. siocat pores ; 0789 
6E 0 AO 98 0001 MOVZBW 3(NAM), LOCAL_D 3; 0791. 
06 =A 04 AO 00 0001 MOVL tCNARD LOCAL 3 0792. 
5 24 AC 9 001C MOVL Rese tints NAMES SSTRING. PTR ; 079 
18 13 00020 BEQL 1 : 0799 
24 AC 0D 000 § PUSHL RESULTANT _NAME : 0802 
04 AE 9F 000 PUSHAB AL 3 
000000006 00 9 Fe 0028 CALLS LTBSScory DXDX ; 
0B E8 O002F BLBS Copy. s : 0803 | 
30 «BC gi D0 9 2 MOVL aintenceet _FLAG : 0806 
0 DD PUSHL Copy. STA : 0807 
24 11 000 BRB $ 3 
53 6— 9 A 1$: MOVAB LOCAL_DSC, STRING_PTR ; 0812 
18 AC D 28: TSTL ERRORR ROUT INE ; 0821 | 
2e 1 4 BEQL $ 3 
0 aC oD 4 PUSHL USER_ARG ; 0825 
C A 4 4 PUSHL Fanon. SOURCE : 
C A F 4 PUSHAB 12(R2 3 
08 Ad 9F bee PUSHAB th 3 
53 DD of PUSHL STRIN 3 
18 C 2 F 05 CALLS H+¥ CRROR ROUTINE 3 
F 0 € B23 BLBS aye ; 
30 =a 01 DO 00057 MOVL @INTERCEPT_FLAG : 


0828 | 


1880 ELETE hel 


files 
ROR - Report error during delete 


3; Routine Size: 


00 = Of 


0 
BC 000000006 of 


Reet 


BC 08 
ec 


> 
MMmoOow 


BC 


Routine Base: _LIBSCODE 


Fat aia @WORST_ERROR 
r 3. QuORST_ERROR, RO 


ou°0 -mm—GVO"O 

Foro -OFf00 
@Oozac®s 
rooer 
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DELE ANDLER = Local condition handler 1 ~8ep-19 4 99:48:38 LIBRTL. RES Tape ese 69251 — (3) 
; 793 1 XSBITL "DELETE_HANDLER = Local condition handler’ 
; 794 3g 1 ROUTINE DELETE_HANDLER ( 
; 795 60 1 SIGNAL_ARGS: REF BLOCK C, BYTEJ, ! Signal arguments array 
; 79 61 1 MECH_ARGS: REF BLOCK [ BYTE. ! Mechanism arguments array 
: ade p86¢ ! ENABCE_ARGS: REF VECTOR C, LONG) ' Enable arguments array 
: 799 Opes 
; 800 se? 1 le 
: $0) 508 : : FUNCTIONAL DESCRIPTION: 
: 80 O868 1: This is the condition handler enabled by LIBSDELETE_FILE. 
; 804 397 . 7 If this is not an unwind, and if the INTERCEPT_FLAG enable 
; 805 o 1! argument is set, then LIB$SIG_TO_RET s called to convert the 
; £08 Bees : } signal to a return status. 
3 808 0878 i CALLING SEQUENCE: 
; 810 0875 1 status.wic.v = DELETE_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra 
: He bees : } , ENABLE_ARGS.rl.ra) 
; B18 0878 i FORMAL PARAMETERS: 
3 Bi? ttt} : ; SIGNAL_ARGS - The signal argument List. 
; aii pees i MECH_ARGS - The mechanism argument List. 
: 819 0884 1: ENABLE _ARGS - The enable argument List. The one enable 
: aso tk ; argument is the address of INTERCEPT_FLAG; 
; 822 0887 i IMPLICIT INPUTS: 
: B26 0889 1 NONE 
; 825 0890 1! 
; 338 bays ' IMPLICIT OUTPUTS: 
; 828 0893 1 | NONE 
3 4 0894 1! 
: Ha 44 ' : ROUTINE VALUE: 
; 832 0897 : SS$_RESIGNAL 
; B34 0899 | i SIDE EFFECTS: 
; B34 9901 May cause an unwind. 
: 838 0908 | in 
: 373 0904 1 
: ? 4H BEGIN 
; Bi 907 BUILTIN 
; 8 ° : ar pusent pointer 
: Bis 344 CALLG; ! CALLG instruction 
; 4g 094 '¢ 
3: 84 gale ! Determine if this is an unwind. If not, then if INTERCEPT_FLAG 
3 seo ay ' is set, turn this signal into an unwind. 
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‘2 DELETE_HANDLER = Local condition handler 1er8eei 138s 3:98:88 | HaRT SaeSr Peete ge bS2.1 
$ 0 915 
; t a8 IF, SIGNAL ARGS CCHFSL_SIG_NAME] NEQU SS$_UNWIND 
; : 38 1F «ENABLE ARGS C1] ! Is INTERCEPT_FLAG set? 
; 855 30 CALLG (.AP, LIBSSIG_TO_RET); ! Convert signal to return status 
; 837 386 RETURN SS$_RESIGNAL; ! Resignal error 
: 859 924 END; ! End of routine DELETE_HANDLER 
0000 00000 DELETE_HANDLER: 
50 4 AC DO 0000 hove. S Tear ARGS? RO 
00000920 &F 8 AO D1 $6008 CMPL tCRO) S886 
OF 13 O000E BEQL «Ss 1$ 
50 0¢ AC 00 0001 MOVL § ENABLE_ARGS, RO 
07 046 BO €9 00014 BLBC a4(RO); 1$ 
000000006 00 6C FA 00018 CALLG (AP), LIB$SIG_TO_RET 
50 0918 8F 3C OOOIF 1$ MOVZWL #2328, RO 
04 00024 RET 


; Routine Size: 37 bytes, Routine Base: _LIBSCODE + 0283 


: 860 0925 1 


Bete Ge Ge Se Ge Be Be Se 


-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
-LIBSCODE 728 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


: oocce “-- Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; ~$255$DUA28: [SYSL IBISTARLET -L32:1 9776 74 0 581 00:00.7 

> _$255$0UA28:CLIBRTL.OBJIRTLLIB.L32;1 36 2 5 8 00:00.1 

; COMMAND QUALIFIERS 

3 BLISS/CHECK= (FIELD. INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:LIBDELETE/0BJ=0BJ$:LIBDELETE MSRC$:LIBDELETE/UPDATE=(ENHS$:LIBDELETE 


0 data bytes 


e 

332. 

Elapsed Time :52. 
Lines/CPU Min: 4486 
Lonenea/\Pu nia 33065 
0 Used: 172 pages 
a ation Complete 


DELETE_FILE Delete one or more files 18-50 Sep-1 AX-11 Bliss- Pa 3) 
its DELETE_HANDLER = Local condition handler 733p71882 99:38:38 | Haar aes Peete fe 6S2. a 
; B66 03 3 } END ! End of module LIBSDELETE_FILE 
: 864 928 0 ELUDOM 
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